home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / Waldo 4.0.4 / WaldoStuff / Update Queue / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1994-01-06  |  1.3 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2840</cardID>
  8.     <listID>3685</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- 84628on resourceupdateQueueend resourceon updateQueueanswer "This will update a Queue to v4.0." with "OK" or "Cancel"if it is "Cancel" thenstop using this stackexit to hyperCardend ifrepeat with counter = 1 to 10if cd fld id counter of cd 1 is empty then exit repeatput counter into fieldNumberput cd fld id counter of cd 1 into queueHolderput the number of lines in queueHolder into linesInQueueHolderrepeat with counter = 1 to linesInQueueHolderset cursor to busyput word 2 of item 2 of line counter of queueHolder into char1put word 4 of item 2 of line counter of queueHolder into char2put "c"&&char1&&"t"&&char2 into item 2 of line counter of queueHolderend repeatend repeatput cd fld id 1 of cd 1 into cd fld id 11 of cd 1end updateQueue</script>
  17.     <background id="2729" file="background_2729.xml" name="" />
  18.     <card id="2840" file="card_2840.xml" marked="false" name="" owner="2729" />
  19. </stack>
  20.